home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
mus
/
play
/
multiplsr.lha
/
windowspec.gui
< prev
Wrap
Text File
|
1992-09-14
|
4KB
|
177 lines
/*
* MultiPlayer
* Copyright (C) 1992 Bryan Ford
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* I (the author of MultiPlayer) can be contacted on the Internet at
* "bryan.ford@m.cc.utah.edu". See "Player.doc" for other addresses.
*
* $Id: windowspec.gui,v 4.3 92/07/20 20:04:39 BAF Exp $
* Main window user interface specification
*
*/
window xdef _windowspec
screen import _playerscreen
left import _tinywinleft top import _tinywintop width 312 height -2
zleft import _zoomwinleft ztop import _zoomwintop
CLOSEWINDOW RAWKEY MOUSEBUTTONS ACTIVEWINDOW INACTIVEWINDOW REFRESHWINDOW changewindow
BUTTONIDCMP CHECKBOXIDCMP CYCLEIDCMP TEXTIDCMP SLIDERIDCMP
DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP
end
text
export _windowmodgad
label "Module" minchars 30
labelleft border endrow
end
text
export _windowtypegad
label "Type" minchars 30
labelleft border endrow
end
text
export _windowauthorgad
label "Author" minchars 30
labelleft border endrow
end
cycle
export _windowsonggad
label "Song" minchars 30
call _gui_windowsong
options array "" null end
labelleft endrow
end
slider
export _windowvolumegad
label "Volume"
call _gui_windowvolume
labelleft
min 0 max 100 level 100
disabled
end
slider
export _windowbalancegad
label "Balance"
call _gui_windowbalance
labelleft
min -50 max 50 level 0
disabled
end
button
export _windowbalanceresetgad
label "=" call _gui_windowbalancereset
disabled endrow
end
slider
export _windowspeedgad
label "Speed"
call _gui_windowspeed
labelleft
min 50 max 1000 level 50
disabled
end
button
export _windowjumpbackgad
label "<<" call jumpback
disabled
end
button
export _windowjumpforwardgad
label ">>" call jumpforward
disabled endrow
end
button
label "New"
call _gui_windownew
end
button
label "Play"
call _gui_play
end
button
label "Cont"
call _gui_cont
end
button
label "Stop"
call _gui_stop
end
button
label "Eject"
call _gui_windoweject
end
button
label "Prev"
call _gui_windowprev
end
button
label "Next"
call _gui_windownext endrow
end
button
label "Program"
call _gui_progwinopenclose
end
button
label "Prefs"
call _gui_prefswinopenclose
end
button
label "Settings"
call _gui_settingswinopenclose
end
button
label "Info"
call _gui_infowinopenclose endrow
end
endcap
filerequester xdef _windowfrspec
title "Select modules"
ok struct 4
pattern "~((#?.info)|(Player))"
donectrlf
window struct 0
multiselect
left import modfrleft
top import modfrtop
width import modfrwidth
height import modfrheight
end